######################################################################
######################################################################
####            A estrada dos tijolos amarelos:                   ####
#### Como e por qu� produzir trabalhos qualitativos transparentes?####
####    Amanda Domingos, Palloma Marciano & Virginia Rocha        ####                            
####      (Corresponding author: amanda.domingos@ufpe.br)         ####                      
######################################################################
######################################################################

#Loading packages
library("rscielo")
library(stringi)
library(quanteda)
library(plyr)
library(dplyr)
library(broom)
library(tidyverse)
library(dplyr)
library(tidytext)
library(tm) 
library(class)
library(SnowballC)
library(topicmodels)
library(ggplot2)

######################
##Scrapping journals##
######################
op <- get_journal("0104-6276", last_issue = FALSE)
rsp <- get_journal("0104-4478", last_issue = FALSE)
dados <- get_journal("0011-5258", last_issue = FALSE)
bpsr <- get_journal("1981-3821", last_issue = FALSE)
rbcs_print <- get_journal("0102-6909", last_issue = FALSE)
ci <- get_journal("0102-8529", last_issue = FALSE)
rbpi <- get_journal("0034-7329", last_issue = FALSE)
ln <- get_journal("0102-6445", last_issue = FALSE)
cebrap <- get_journal("0101-3300", last_issue = FALSE)

#Combining datasets for analysis
total <- rbind(op, rsp)
total <- rbind(total, dados)
total <- rbind(total, bpsr)
total <- rbind(total, rbcs_print)
total <- rbind(total, ci)
total <- rbind(total, rbpi)
total <- rbind(total, ln)
total <- rbind(total, cebrap)

#Saving dataset (date: 6th june 2020)
write.csv(total, "Data/OriginalData/total.csv")
